home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO003.dsk / DEMOS / TYPE.DEMO.bas < prev   
BASIC Source File  |  2012-02-16  |  207b  |  10 lines
  1. 10 D$ =  CHR$(4)
  2. 20  ONERR  GOTO 100
  3. 25  PRINT D$"-/PRODOS.03/TYPE.CMD"
  4. 27 I =  -1
  5. 30  HOME 
  6. 35 I = I +1
  7. 40  PRINT D$;"TYPE /PRODOS.03/TEXT/P";I
  8. 50  PRINT : PRINT : GET A$
  9. 60  IF A$ < >"Q"  THEN 30
  10. 100  END